home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / BP7BUGS2.ZIP / TRASHSRC.ZIP / TEST.PAS < prev    next >
Pascal/Delphi Source File  |  1993-01-03  |  338b  |  21 lines
  1. program test;
  2.  
  3. { This program just does longint multiplies and reports any errors.
  4.   If you use Prot386, you shouldn't see any. }
  5.  
  6. uses
  7.   { prot386, }
  8.   crt;
  9.  
  10. var
  11.   x,y,z : longint;
  12. begin
  13.   x := 20;
  14.   y := 6;
  15.   repeat
  16.     z := x*y;
  17.     if z <> 120 then
  18.       writeln('Longint error!  z=',z);
  19.   until keypressed;
  20. end.
  21.